home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 181 / 181.d81 / b.toon 178 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  111 lines
  1. 10 poke56,56:poke55,0:clr:poke53371,0
  2. 14 nm$="[193]lan [198]ischer
  3. 16 ad$[178]"of (NULL)aseca (NULL)(NULL)
  4. 20 dv=peek(186):ifdv<8thendv=8
  5. 22 hz$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  6. 24 sp$="                                        "
  7. 26 eb$(0)="  @    @  "
  8. 27 eb$(1)=" @    @   "
  9. 28 eb$(2)="   @    @ "
  10. 30 poke53281,0:poke53280,0:print"[147]"
  11. 32 x=1:y=0:xx=36:yy=22:gosub100
  12. 34 printtab(4)"[129][176][192][192][178][192][192][174] [176][192][192][192][192][192][174] [176][192][192][192][192][192][174] [176][192][192][174]  [176]
  13. 35 [153][163]4)"   (NULL)    (NULL)     (NULL) (NULL)     (NULL) (NULL)  (NULL)  (NULL)
  14. 36 printtab(4)"   [177]    [173][192][192][192][192][192][189] [173][192][192][192][192][192][189] [189]  [173][192][192][189]
  15. 38 [153]"print#        (NULL)left$val (NULL)right$chr$left$(NULL)(NULL) (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  16. 40 [153]"     (NULL)(NULL)(NULL)(NULL) (NULL)asc (NULL)left$val (NULL)(NULL)(NULL)(NULL)left$ len(NULL)(NULL)(NULL)val(NULL)(NULL)
  17. 50 ifgthen120
  18. 60 g=1
  19. 70 sys57812"toon.font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  20. 72 poke53272,31
  21. 80 sys57812"toon.ml",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  22. 90 sys57812"toon 178.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  23. 96 goto120
  24. 100 poke214,y:print
  25. 102 printtab(x)"[176]"left$(hz$,xx)"[174]"
  26. 104 fori=1toyy:printtab(x)"[221]"left$(sp$,xx)"[221]":next
  27. 106 printtab(x)"[173]"left$(hz$,xx)"[189]"
  28. 108 return
  29. 120 gosub680:poke214,9:print:print" 1[154] [202]ust show [155][212]oon 178[154]."
  30. 130 print" 2[154] [211]how [155][212]oon 178[154] and print it on a
  31. 140 [153]"   7-pin (1525-emulating) printer.
  32. 150 print" 3[154] [211]how [155][212]oon 178[154] and print it on an
  33. 160 [153]"   8-pin (valpson-emulating) printer.
  34. 190 print" 4[159] [210]eturn to [204][207][193][196][211][212][193][210].
  35. 200 [151]198,0
  36. 206 [139][187](1)[177].98[167][151]214,3:[153]:[153][163]13)eb$([187](1)[172]3)
  37. 210 [161]a$:[139]a$[179]"1"[176]a$[177]"4"[167]206
  38. 220 a1[178][197](a$):[139]a1[178]4[167]40000
  39. 240 [139]a1[178]1[167]600
  40. 250 [139]a1[178]2[167]tb[178]80:[137]430
  41. 252 [139]a1[179][177]3[167]200
  42. 260 [141]680
  43. 270 [151]214,11:[153]
  44. 280 [153][163]7)"    str$val(NULL)(NULL)right$(NULL)(NULL)      (NULL)right$str$(NULL)left$
  45. 290 printtab(7)" 1[154] [211]ingle       wide
  46. 300 [153][163]7)" 2cont lenrt          normal
  47. 310 printtab(7)" 3[154] [196]ouble       narrow
  48. 320 [153][163]7)" 4cont str$ouble       wide
  49. 330 printtab(7)" 5[154] [209]uad         narrow
  50. 340 [153][163]7)" 6cont (NULL)uad         normal
  51. 342 printtab(7)" 7[159] [194]ack to the [205]ain [205]enu
  52. 350 [151]198,0
  53. 360 [161]a$:[139]a$[179]"1"[176]a$[177]"7"[167]360
  54. 370 a2[178][197](a$):[139]a2[178]1[167] ds[178]0:bt[178]1:tb[178]80
  55. 380 [139]a2[178]2[167] ds[178]4:bt[178]1:tb[178]120
  56. 390 [139]a2[178]3[167] ds[178]1:bt[178]1:tb[178]160
  57. 400 [139]a2[178]4[167] ds[178]1:bt[178]2:tb[178]80
  58. 410 [139]a2[178]5[167] ds[178]3:bt[178]2:tb[178]160
  59. 420 [139]a2[178]6[167] ds[178]3:bt[178]3:tb[178]120
  60. 422 [139]a2[178]7[167]30
  61. 430 [141]680
  62. 440 [151]214,11:[153]
  63. 450 [153][163]9)"    (NULL)atnpeekclose(NULL)(NULL)(NULL)right$(NULL)right$(NULL)(NULL)
  64. 460 printtab(9)" 1[154] [204]eft
  65. 470 [153][163]9)" 2cont     lenenter
  66. 480 printtab(9)" 3[154]         [210]ight
  67. 490 [139]a2[179][177]3[175]a2[179][177]5[167]520
  68. 500 [153][163]9)" 4cont   lenenter-left
  69. 510 printtab(9)" 5[154]       [195]enter-right
  70. 512 [153][163]9)" 6open peekack to (NULL)ain (NULL)enu
  71. 520 poke198,0
  72. 530 geta$:ifa$<"1"ora$>"6"then530
  73. 532 ifa$="6"then30
  74. 540 ifa$="1"thentb=0:goto600
  75. 550 ifa$="2"then600
  76. 560 ifa$="3"thentb=tb*2:goto600
  77. 570 ifa2<>3anda2<>5then520
  78. 580 ifa$="4"thentb=53:goto600
  79. 590 tb=266
  80. 600 ifa1=1thengosub930
  81. 608 poke251,64:poke252,96:poke253,92:ifg=1thensys51456
  82. 610 sys51459
  83. 620 ifa1=2thensys49152,tb,128:goto660
  84. 630 ifa1=3thensys49155,tb,ds,bt,bt*320,128:goto660
  85. 640 poke198,0
  86. 650 geta$:ifa$=""then650
  87. 660 poke186,dv:sys51459
  88. 670 goto30
  89. 680 poke214,8:print:fori=1to14:printtab(2)left$(sp$,35):next:return
  90. 930 gosub680
  91. 940 x=3:y=10:xx=32:yy=8:gosub100
  92. 950 poke214,12:print
  93. 952 printtab(7)"[155][212]he winner of [212][207][207][206] 178 is[154]"
  94. 954 printtab(20-len(nm$)/2)nm$
  95. 956 printtab(20-len(ad$)/2)ad$
  96. 960 printtab(6)"[155][208]ress a key to see [212]oon 178."
  97. 970 poke198,0
  98. 980 geta$:ifa$=""then980
  99. 990 return
  100. 10000 d=peek(186):n$="0:b.toon 178":open15,d,15,"s"+n$:close15:saven$,d:end
  101. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  102. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  103. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  104. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  105. 40040 close2:open2,i,2:close2:ifstthen40060
  106. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  107. 40060 next:return
  108. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  109. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  110. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  111.